home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / Docs / tutorials.gc < prev   
Encoding:
Gui4CLI script  |  1980-01-03  |  1.1 KB  |  59 lines
  1. G4C
  2.  
  3. WINBIG -1 -1 279 190 'Tutorials'
  4. wintype 11110001
  5. varpath ''
  6.  
  7. xonload
  8. file = ''
  9. lvuse tutorials.gc 1
  10. lvmode TXT              ; change the lv mode on the fly
  11. guiopen tutorials.gc
  12.  
  13. xonclose
  14. guiquit tutorials.gc
  15.  
  16. xonquit
  17. guiquit read.gc
  18.  
  19. xonRMB
  20. status
  21.  
  22.  
  23. XLISTVIEW 3 17 180 172 '' tut guis:docs/tutorials 0 DIR ; start off with dir lv
  24. GadID 1
  25. gadfont topaz.font 8 000
  26. cutvar tut cut word 1 tut             ; because dir lvs have also the sizes etc
  27. file = 'guis:docs/tutorials/$tut'
  28. update tutorials.gc 2 'Tutorial : $tut'
  29.  
  30. TEXT 2 1 275 15  "Choose a tutorial.." 40 BOX
  31. GadID 2
  32.  
  33.  
  34. XBUTTON 183 17 93 19     'Read it'
  35. if $file > ''
  36.    update tutorials.gc 2 'Reading $tut ..'
  37.    *FILENAME = $file
  38.    guiload guis:tools/read.gc
  39.    update tutorials.gc 2 'Tutorial : $tut'
  40. endif
  41.  
  42. XBUTTON 183 36 93 19     'Run it'
  43. if $file > ''
  44.    update tutorials.gc 2 'Running $tut ..'
  45.    guiload $file
  46.    update tutorials.gc 2 'Tutorial : $tut'
  47. endif
  48.  
  49. XBUTTON 183 151 93 19     'Guide..'
  50. run 'amigaguide guis:docs/gui4cli.guide'
  51.  
  52.  
  53. XBUTTON 183 170 93 19     'Quit'
  54. guiquit tutorials.gc
  55.  
  56.  
  57. ICON 207 79     guis:gui4cli
  58.  
  59.